# Title     : TODO
# Objective : TODO
# Created by: yz
# Created on: 2018/12/27
library(randomForest)
library(magrittr)
library(dplyr)
library(gbm)
Sys.setenv(JAVA_HOME='../../bin/jre1.8.0_112')
library(xlsx)
rm(list = ls())

sig_fun <- function(x){(exp(x) / (1 + exp(x)))}

input <- read.xlsx("input.xlsx", 1, check.names = F)
df <- input[, c("SampleID", "Age", "Leu", "Ile", "Val", "Phe", "Tyr")]

df_out <- data.frame(df)
df_final <- df_out %>% data.frame()

df_final$score <- NA


out <- merge(df_final, input, by = c("row.names","SampleID", "Age", "Leu", "Ile", "Val", "Phe", "Tyr"), sort = F)
write.table(out, 'out.txt', sep = '\t', quote = F, row.names = FALSE)
